home *** CD-ROM | disk | FTP | other *** search
- object MainForm: TMainForm
- Left = 138
- Top = 137
- BorderStyle = bsSingle
- Caption = 'TermDemo'
- ClientHeight = 341
- ClientWidth = 656
- Font.Color = clWindowText
- Font.Height = -14
- Font.Name = 'System'
- Font.Style = []
- KeyPreview = True
- Menu = MainMenu1
- PixelsPerInch = 96
- Position = poScreenCenter
- OnActivate = FormActivate
- OnCreate = FormCreate
- OnKeyDown = FormKeyDown
- TextHeight = 16
- object Terminal1: TApdTerminal
- Left = 8
- Top = 8
- Width = 640
- Height = 300
- ComPort = ApdComPort1
- IntegralSize = isNone
- Emulator = Emulator1
- DisplayRows = 25
- DisplayColumns = 80
- CaptureFile = 'APD.CAP'
- WantTabs = False
- OnTerminalStatus = Terminal1TerminalStatus
- Font.Color = clYellow
- Font.Height = -12
- Font.Name = 'Terminal'
- Font.Pitch = fpFixed
- Font.Style = []
- ParentColor = False
- ParentFont = False
- end
- object StatusLine: THeader
- Left = 0
- Top = 316
- Width = 656
- Height = 25
- Align = alBottom
- AllowResize = False
- BorderStyle = bsNone
- Sections.Sections = (
- #0'135'#0'COM2 N81 19200'
- #0'45'#0'01 01'
- #0'55'#0'01 001'
- #0'68'#0'Message')
- TabOrder = 1
- end
- object Emulator1: TApdEmulator
- Top = 32
- end
- object MainMenu1: TMainMenu
- Top = 64
- object F1: TMenuItem
- Caption = '&File'
- object P1: TMenuItem
- Caption = '&Playback file'
- OnClick = P1Click
- end
- object C2: TMenuItem
- Caption = '&Clear terminal'
- OnClick = C2Click
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object E2: TMenuItem
- Caption = '&Exit'
- OnClick = E2Click
- end
- end
- object E1: TMenuItem
- Caption = '&Edit'
- object C3: TMenuItem
- Caption = 'Copy'
- OnClick = C3Click
- end
- end
- object C1: TMenuItem
- Caption = '&Communications'
- object S1: TMenuItem
- Caption = 'Set parameters'
- OnClick = S1Click
- end
- end
- object F2: TMenuItem
- Caption = '&Font'
- OnClick = F2Click
- end
- end
- object OpenDialog1: TOpenDialog
- FileName = '*.ANS'
- Options = [ofHideReadOnly]
- Title = 'Select PlayBack File'
- Top = 96
- end
- object FontDialog1: TFontDialog
- Font.Color = clWindowText
- Font.Height = -17
- Font.Name = 'System'
- Font.Style = []
- MinFontSize = 0
- MaxFontSize = 0
- Options = [fdEffects, fdFixedPitchOnly]
- Top = 128
- end
- object ApdComPort1: TApdComPort
- TraceName = 'APD.TRC'
- Logging = tlOn
- LogName = 'APD.LOG'
- UseEventWord = False
- end
- end
-